PC Direct 1995 September/PCD0995.ISO/files/intro.dir/00053_Attract w-start butn+panel.PICT.ls

Text File | 1995-01-24 | 625 b | 32 lines

on mouseUp
  repeat with x = 1 to 10
    puppetSprite(x, 0)
  end repeat
  updateStage()
  if the controlDown then
    if the optionDown then
      put "Hi Heidi!" into field "Who to"
    else
      put "Hi Alex!" into field "Who to"
    end if
    go("Presentation")
    exit
  end if
  if the shiftDown then
    put "Hi Cathy!" into field "Who to"
    go("Presentation")
    exit
  end if
  if the commandDown then
    put "Hi Karyn!" into field "Who to"
    go("Presentation")
    exit
  end if
  if the optionDown then
    put "Company Name" into field "Who to"
    go("Presentation")
    exit
  end if
  go("start")
end